home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / RAMSES 2.2 / RAMSES 2.2 Extras / AuxLibExtra .DEF / MatInterpol.DEF < prev    next >
Encoding:
Modula Definition  |  1996-06-21  |  1.5 KB  |  52 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE MatInterpol;
  2.  
  3.   (*******************************************************************
  4.  
  5.     Module  MatInterpol     (Version 1.0)
  6.  
  7.               Copyright ©1993 by Olivier Roth, Andreas Fischlin, 
  8.               and Swiss Federal Institute of Technology Zürich ETHZ 
  9.  
  10.       Purpose: Interpolation in 2D and 1D tables
  11.               
  12.       Remarks: This modulde is part of the Mat-library, which forms 
  13.                  part of the RAMSES package.
  14.               
  15.       Programming
  16.           o Design and Implementation
  17.               O. Roth                 23.04.90
  18.               A. Fischlin            28/Mai/93
  19.               
  20.           Systems Ecology Group
  21.           Swiss Federal Institute of Technology Zurich ETHZ
  22.           Department of Environmental Sciences
  23.           Grabenstr. 3
  24.           CH-8952 Schlieren/Zurich
  25.           Switzerland
  26.  
  27.           Last revision of definition:  28/Mai/93 af
  28.  
  29.   *******************************************************************)
  30.  
  31.   FROM Matrices IMPORT Matrix;
  32.  
  33.  
  34.   PROCEDURE YI ( m: Matrix;  x: REAL ): REAL;
  35.   (* returns linearly interpolated value between adjacent points
  36.   given by the elements of 1-d m closest to x *)  
  37.  
  38.   PROCEDURE YIE( m: Matrix;  x: REAL ): REAL;
  39.   (* like YI, but does also extrapolate *)
  40.  
  41.  
  42.   PROCEDURE ZI ( m: Matrix;  x,y: REAL ): REAL;
  43.   (* returns linearly interpolated value between adjacent points
  44.   given by the elements of 2-d m closest to point x,y *)  
  45.  
  46.   PROCEDURE ZIE( m: Matrix;  x,y: REAL ): REAL;
  47.   (* like ZI, but does also extrapolate *)
  48.  
  49.  
  50.  
  51. END MatInterpol.
  52.